home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / mis_util / dbfx / fxfunct.prg < prev    next >
Encoding:
Text File  |  1989-01-04  |  2.8 KB  |  142 lines
  1. *  FXFUNCT.PRG.
  2.  
  3.  
  4. clear
  5. @  0,25 say "dBFX Function Key Update Program"
  6. @  4, 0 say "Press a function key:"
  7. @  6, 0 say "Press [ESC] to exit."
  8. @  8, 0 say "Text:"
  9.  
  10. load FX
  11. set talk off
  12. set bell off
  13.  
  14. m_continue = .T.
  15. m_valid = .T.
  16.  
  17. do while m_continue
  18.   @  4,22
  19.   m_keys = "KEYS"
  20.   call FX with m_keys
  21.   use FXKEYS
  22.  
  23.   do case
  24.     case m_keys = "1B"                  && User pressed [ESC].
  25.       m_valid = .F.
  26.       m_continue = .F.
  27.  
  28.     case substr(m_keys,1,2) = "F-"      && Entry was found.
  29.       m_valid = .T.
  30.       m_text = substr(m_keys,3,len(m_keys) -2)
  31.       use FXKEYS
  32.       locate for TEXT = m_text
  33.  
  34.     otherwise                           && Entry was blank.
  35.  
  36.       m_valid = .T.
  37.  
  38. *     3B - 44 = lower case.
  39. *     54 - 5D = upper case.
  40. *     5E - 67 = control.
  41. *     68 - 71 = alternate.
  42.  
  43.       do case
  44.         case m_keys = "3B"
  45.           go  1
  46.         case m_keys = "3C"
  47.           go  2
  48.         case m_keys = "3D"
  49.           go  3
  50.         case m_keys = "3E"
  51.           go  4
  52.         case m_keys = "3F"
  53.           go  5
  54.         case m_keys = "40"
  55.           go  6
  56.         case m_keys = "41"
  57.           go  7
  58.         case m_keys = "42"
  59.           go  8
  60.         case m_keys = "43"
  61.           go  9
  62.         case m_keys = "44"
  63.           go 10
  64.         case m_keys = "54"
  65.           go 11
  66.         case m_keys = "55"
  67.           go 12
  68.         case m_keys = "56"
  69.           go 13
  70.         case m_keys = "57"
  71.           go 14
  72.         case m_keys = "58"
  73.           go 15
  74.         case m_keys = "59"
  75.           go 16
  76.         case m_keys = "5A"
  77.           go 17
  78.         case m_keys = "5B"
  79.           go 18
  80.         case m_keys = "5C"
  81.           go 19
  82.         case m_keys = "5D"
  83.           go 20
  84.         case m_keys = "5E"
  85.           go 21
  86.         case m_keys = "5F"
  87.           go 22
  88.         case m_keys = "60"
  89.           go 23
  90.         case m_keys = "61"
  91.           go 24
  92.         case m_keys = "62"
  93.           go 25
  94.         case m_keys = "63"
  95.           go 26
  96.         case m_keys = "64"
  97.           go 27
  98.         case m_keys = "65"
  99.           go 28
  100.         case m_keys = "66"
  101.           go 29
  102.         case m_keys = "67"
  103.           go 30
  104.         case m_keys = "68"
  105.           go 31
  106.         case m_keys = "69"
  107.           go 32
  108.         case m_keys = "6A"
  109.           go 33
  110.         case m_keys = "6B"
  111.           go 34
  112.         case m_keys = "6C"
  113.           go 35
  114.         case m_keys = "6D"
  115.           go 36
  116.         case m_keys = "6E"
  117.           go 37
  118.         case m_keys = "6F"
  119.           go 38
  120.         case m_keys = "70"
  121.           go 39
  122.         case m_keys = "71"
  123.           go 40
  124.         otherwise
  125.           m_valid = .F.
  126.       endcase
  127.  
  128.   endcase
  129.  
  130.   if m_valid
  131.     m_text = TEXT
  132.     @  8, 7 get m_text
  133.     read
  134.     replace TEXT with m_text
  135.   endif
  136.  
  137.   use
  138. enddo
  139.  
  140. release module FX
  141.  
  142.